home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / forth / pfe-0.000 / pfe-0 / pfe-0.9.13 / src / vocs.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-07-17  |  2.4 KB  |  85 lines
  1. /*
  2.  * This file is part of the portable Forth environment written in ANSI C.
  3.  * Copyright (C) 1995  Dirk Uwe Zoller
  4.  *
  5.  * This library is free software; you can redistribute it and/or
  6.  * modify it under the terms of the GNU Library General Public
  7.  * License as published by the Free Software Foundation; either
  8.  * version 2 of the License, or (at your option) any later version.
  9.  *
  10.  * This library is distributed in the hope that it will be useful,
  11.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  13.  * See the GNU Library General Public License for more details.
  14.  *
  15.  * You should have received a copy of the GNU Library General Public
  16.  * License along with this library; if not, write to the Free
  17.  * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18.  *
  19.  * This file is version 0.9.13 of 17-July-95
  20.  * Check for the latest version of this package via anonymous ftp at
  21.  *    roxi.rz.fht-mannheim.de:/pub/languages/forth/pfe-VERSION.tar.gz
  22.  * or    sunsite.unc.edu:/pub/languages/forth/pfe-VERSION.tar.gz
  23.  * or    ftp.cygnus.com:/pub/forth/pfe-VERSION.tar.gz
  24.  *
  25.  * Please direct any comments via internet to
  26.  *    duz@roxi.rz.fht-mannheim.de.
  27.  * Thank You.
  28.  */
  29. /*
  30.  * vocs.c ---    Vocabularies and lists of words to preload.
  31.  * (duz 18Apr94)
  32.  */
  33.  
  34. #include "forth.h"
  35. #include "support.h"
  36.  
  37. extern const Words
  38.   core_words,        block_words,
  39.   double_words,        exception_words,
  40.   facility_words,    file_words,
  41.   floating_words,    locals_words,
  42.   memory_words,        toolkit_words,
  43.   search_words,        string_words,
  44.   forth_83_words,    lpf83_words,
  45.   misc_words,        debug_words,
  46.   shell_words,        system_words,
  47.   your_words;
  48.  
  49. static const Words *const only_sets [] =
  50. {
  51.   &search_words
  52. };
  53.  
  54. static const Words *const forth_sets [] =
  55. {
  56.   &core_words,        &block_words,
  57.   &double_words,    &exception_words,
  58.   &facility_words,    &file_words,
  59.   &floating_words,    &locals_words,
  60.   &memory_words,    &toolkit_words,
  61.   &string_words
  62. };
  63.  
  64. static const Words *const extensions_sets [] =
  65. {
  66.   &forth_83_words,    &lpf83_words,
  67.   &misc_words,        &debug_words,
  68.   &system_words,    &shell_words,
  69.   &your_words
  70. };
  71.  
  72. preloadList only_list =
  73.     { DIM (only_sets), only_sets };
  74. preloadList forth_list =
  75.     { DIM (forth_sets), forth_sets };
  76. preloadList extensions_list =
  77.     { DIM (extensions_sets), extensions_sets };
  78.  
  79. const preloadList *preload_list [] =
  80. {
  81.   &only_list, &forth_list, &extensions_list
  82. };
  83.  
  84. const int preload_lists = DIM (preload_list);
  85.